home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Serving Financial Service…olutions Suite 1994 Fall
/
Serving Financial Services Solutions Suite 1994 Fall.iso
/
Apps
/
AFS
/
PasteUp.app
/
preprint.ps
< prev
next >
Wrap
Text File
|
1994-12-14
|
2KB
|
84 lines
% BEGIN PasteUp prologue extensions for preprint
% general
/setoverprint where { pop }{ %ifelse
/setoverprint { pop } def
} ifelse
/setbleed { % bool setbleed
{ %if
/*rectclip /rectclip load def
/rectclip {
dup type /arraytype eq {
aload pop
} if
72 add exch 72 add exch 4 2 roll
36 sub exch 36 sub exch 4 2 roll *rectclip
} def
} if
} bind def
/setcmykcolor where { pop }{ %ifelse
/setcmykcolor { %def
1 sub 4 1 roll
3 { %repeat
3 index add neg dup 0 lt {pop 0} if 3 1 roll
} repeat setrgbcolor pop
} bind def
} ifelse
/set_real_black { systemdict begin 0 setgray end } bind def
/set_real_white { systemdict begin 1 setgray end } bind def
% crop marks and registration marks:
/T {
transform round exch round exch itransform
} bind def
/doublestroke { % paint white background just in case
gsave 1 setgray 10 setlinewidth stroke grestore
stroke
} bind def
/drawPageBackground {
gsave 1 setgray rectfill grestore
} bind def
/cropDraw {
T rmoveto rlineto T rmoveto rlineto
0.05 setlinewidth set_real_black doublestroke
} bind def
/cropLowerLeft { % X Y cropLowerLeft
gsave T moveto 0 -30 40 -10 -30 0 -10 0 cropDraw grestore
} bind def
/cropLowerRight { % X Y cropLowerRight
gsave T moveto 0 -30 -40 -10 30 0 10 0 cropDraw grestore
} bind def
/cropUpperLeft { % X Y cropUpperLeft
gsave T moveto 0 30 40 10 -30 0 -10 0 cropDraw grestore
} bind def
/cropUpperRight { % X Y cropUpperRight
gsave T moveto 0 30 -40 10 30 0 10 0 cropDraw grestore
} bind def
% registration mark courtesy of Peter Truskier of Star Graphics
/regMark { % X Y regMark
gsave
0.25 setlinewidth
set_real_black % 2 copy T moveto
newpath
2 copy T 4 0 360 arc fill
2 copy T 8 0 360 arc stroke
2 copy exch 16 sub exch T moveto 32 0 rlineto
2 copy 16 sub T moveto 0 32 rlineto stroke
set_real_white
2 copy T moveto
2 copy T 4.4 0 90 arc closepath stroke
2 copy T moveto
2 copy T 4.4 180 270 arc closepath stroke
pop pop
grestore
} bind def
/showDocumentName { % (docName) (TITLE:) X Y showDocumentName
gsave
/Helvetica-Bold findfont 10 scalefont setfont
set_real_white 3 copy 5 sub exch 5 sub exch
3 -1 roll stringwidth pop 110.0 add 20 rectfill
set_real_black moveto show ( \() show show ( \)) show
grestore
} bind def
% END PasteUp prologue extensions